﻿//        Copyright (c) 2009, Semyon A. Chertkov (semyonc@gmail.com)
//        All rights reserved.
//
//        Redistribution and use in source and binary forms, with or without
//        modification, are permitted provided that the following conditions are met:
//            * Redistributions of source code must retain the above copyright
//              notice, this list of conditions and the following disclaimer.
//            * Redistributions in binary form must reproduce the above copyright
//              notice, this list of conditions and the following disclaimer in the
//              documentation and/or other materials provided with the distribution.
//            * Neither the name of author nor the
//              names of its contributors may be used to endorse or promote products
//              derived from this software without specific prior written permission.
//
//        THIS SOFTWARE IS PROVIDED ''AS IS'' AND ANY
//        EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
//        WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
//        DISCLAIMED. IN NO EVENT SHALL  AUTHOR BE LIABLE FOR ANY
//        DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
//        (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
//        LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
//        ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
//        (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
//        SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Security;

namespace DataEngine.CoreServices
{
    public class MacroFunc: MacroFuncBase
    {
        private Executive.Parameter[] _parameters;
        private object _body;

        public MacroFunc(object id, string paramstr, string body)
        {
            if (!String.IsNullOrEmpty(paramstr))
            {
                _parameters = Executive.CreateParameters(paramstr);
                Name = new MacroFuncName(id, _parameters.Length);
            }
            else
                Name = new MacroFuncName(id, 0);
            _body = LispParser.Parse(body);
        }

        public MacroFunc(object id, Executive.Parameter[] parameters, object body)
        {
            if (parameters != null)
                Name = new MacroFuncName(id, parameters.Length);
            else
                Name = new MacroFuncName(id, 0);
            _body = body;
            _parameters = parameters;
        }
        
        public override object Execute(Executive engine, object[] lval, out bool proceed)
        {
            if (Name.Arity == lval.Length || Name.Arity == -1)
            {
                proceed = true;
                engine.EnterMacro();
                try
                {
                    return engine.Apply(null, _parameters, _body, lval, null, engine.DefaultPool);
                }
                finally
                {
                    engine.LeaveMacro();
                }
            }
            else
            {
                proceed = false;
                return null;
            }
        }
    }
}
